library(ggmap)
## Loading required package: ggplot2
library(mapproj)
## Loading required package: maps
??ggmap ## Set location
map <- get_map(location = 'Japan', zoom = 6)
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=Japan&zoom=6&size=640x640&scale=2&maptype=terrain&language=en-EN&sensor=false
## Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=Japan&sensor=false
ggmap(map)
map <- get_map(location = 'Japan', zoom = 7,
language = "jpn")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=Japan&zoom=7&size=640x640&scale=2&maptype=terrain&language=jpn&sensor=false
## Information from URL : http://maps.googleapis.com/maps/api/geocode/json?address=Japan&sensor=false
ggmap(map)
map <- get_map(location = c(lon = 138.4, lat = 35),
zoom = 12, language = "jpn")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=35,138.4&zoom=12&size=640x640&scale=2&maptype=terrain&language=jpn&sensor=false
ggmap(map)
Origin type: terrain
map <- get_map(location = c(lon = 138.4, lat = 35),
zoom = 12, language = "jpn", maptype = "roadmap")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=35,138.4&zoom=12&size=640x640&scale=2&maptype=roadmap&language=jpn&sensor=false
ggmap(map)
map <- get_map(location = c(lon = 138.4, lat = 35),
zoom = 12, language = "jpn")
## Map from URL : http://maps.googleapis.com/maps/api/staticmap?center=35,138.4&zoom=12&size=640x640&scale=2&maptype=terrain&language=jpn&sensor=false
ggmap(map, darken = c(0.5, "white"))